home *** CD-ROM | disk | FTP | other *** search
/ 3D World 12 (Spanish) / 3D WORLD #12.iso / simply3d.mst < prev   
Text File  |  1997-10-09  |  16KB  |  490 lines
  1. '*                       Simply3D setup
  2. '**************************************************************************
  3.  
  4. '$DEFINE DEBUG  ''Define for script development/debugging
  5.  
  6. '$INCLUDE 'setupapi.inc'
  7. '$INCLUDE 'msdetect.inc'
  8.  
  9. ''Dialog ID's
  10. CONST WELCOME       = 100
  11. CONST ASKQUIT       = 200
  12. CONST DESTPATH      = 300
  13. CONST EXITFAILURE   = 400
  14. CONST EXITQUIT      = 600
  15. CONST EXITSUCCESS   = 700
  16. CONST OPTIONS       = 800
  17. CONST APPHELP       = 900
  18. CONST CUSTINST      = 6200
  19. CONST BADPATH       = 6400
  20.  
  21. CONST EYESFILES     = 1
  22. CONST TUTORFILES     = 2
  23. CONST PLAYBACKFILES     = 3
  24. CONST FONTFILES     = 4
  25. CONST CATAFILES         = 5
  26. CONST DEMOFILES     = 6
  27. CONST VFWFILES         = 7
  28.  
  29. CONST RLIVEBB        = 6401
  30. CONST VFONTBB        = 6402
  31. CONST VCATABB        = 6405
  32. CONST ANIPLAY        = 6406
  33. CONST WELCOMEBB        = 6407
  34. CONST SSCENESBB        = 6408
  35.  
  36. ''Bitmap ID
  37. CONST LOGO = 1
  38.  
  39. GLOBAL SRCDRIVE$   ''Default source drive.
  40. GLOBAL DEST$        ''Default destination directory.
  41. GLOBAL DESTEYES$    ''Default destination directory.
  42. GLOBAL DESTCATA$    ''Default destination directory.
  43. GLOBAL DESTFONT$    ''Default destination directory.
  44. GLOBAL WINDIR$      ''Default destination directory.
  45. GLOBAL WINSYSDIR$   ''Default destination directory.
  46. GLOBAL EXECOPT$     ''Option selection from OptFiles1 option dialog.
  47. GLOBAL TUTOROPT$    ''Option selection from OptFiles2 option dialog.
  48. GLOBAL DOEYES$      ''Option selection to install the executable and config files.
  49. GLOBAL DOTUTORIAL$  ''Option selection to install tutorials.
  50. GLOBAL DOPLAYBACK$  ''Option selection to install playbacks.
  51. GLOBAL DOFONT$      ''Option selection to install Visual Font.
  52. GLOBAL DOCATA$      ''Option selection to install Visual Catalogue.
  53. GLOBAL DODEMO$      ''Option selection to install demos.
  54. GLOBAL DOVFW$       ''Option selection to install Video for Windows.
  55. GLOBAL CUIDLL$
  56.  
  57. ''Dialog list symbol names
  58. GLOBAL CHECKIN$
  59. GLOBAL CHECKOUT$
  60.  
  61. DECLARE SUB Install
  62. DECLARE SUB Cleanup(path$)
  63. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  64. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  65. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  66. DECLARE FUNCTION FShowWindow LIB "mscuistf.dll" (arg1%) AS INTEGER
  67.  
  68. INIT:
  69.     Tmp% = FShowWindow( HwndFrame )
  70.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  71.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  72.  
  73.     SetBitmap CUIDLL$, LOGO
  74.     SetTitle "Simply 3D CD-ROM Setup"
  75.  
  76.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  77.     IF szInf$ = "" THEN
  78.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  79.     END IF
  80.  
  81.     ReadInfFile szInf$
  82.  
  83.     DEST$ = "C:\SIMPLY3D"
  84.  
  85. '$IFDEF DEBUG
  86.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  87.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  88.     IF IsDriveValid(WinDrive$) = 0 THEN
  89.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  90.         GOTO QUIT
  91.     END IF
  92. '$ENDIF ''DEBUG
  93.  
  94.  
  95. WELCOME:
  96.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  97.     IF sz$ = "CONTINUE" THEN
  98.         UIPop 1
  99.     ELSE
  100.         GOSUB ASKQUIT
  101.         GOTO WELCOME
  102.     END IF
  103.  
  104.     w% = GetScreenWidth
  105.     h% = GetScreenHeight
  106.  
  107.     IF OnWindowsNT() THEN
  108.         i% = DoMsgBox("This setup of Simply 3D cannot run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  109.     ERROR STFERR       
  110.     GOTO QUIT
  111.     END IF
  112.  
  113.     IF w% < 800 THEN
  114.         i% = DoMsgBox("display driver must be running at a minimum 800 x 600 resolution", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  115.         ERROR STFERR
  116.         GOTO QUIT
  117.     ENDIF
  118.     IF h% < 600 THEN
  119.         i% = DoMsgBox("display driver must be running at a minimum 800 x 600 resolution", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  120.         ERROR STFERR
  121.         GOTO QUIT
  122.     ENDIF
  123.  
  124.     i% = Has87MathChip
  125.     IF i% = 0 THEN
  126.         i% = DoMsgBox("Setup could not find a MATH COPROCESSOR", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  127.         ERROR STFERR
  128.         GOTO QUIT
  129.     ENDIF
  130.  
  131.     ''File Option Variables
  132. '    EXECOPT$ = "1"
  133. '    TUTOROPT$ = "1"
  134.  
  135.  
  136.  
  137. GETPATH:
  138.     SetSymbolValue "EditTextIn", DEST$
  139.     SetSymbolValue "EditFocus", "END"
  140. GETPATHL1:
  141.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  142.     DEST$ = GetSymbolValue("EditTextOut")
  143.  
  144.     IF sz$ = "CONTINUE" THEN
  145.         IF IsDirWritable(DEST$) = 0 THEN
  146.             GOSUB BADPATH
  147.             GOTO GETPATHL1
  148.         END IF
  149.         UIPop 1
  150.     ELSEIF sz$ = "REACTIVATE" THEN
  151.         GOTO GETPATHL1
  152.     ELSEIF sz$ = "BACK" THEN
  153.         UIPop 1
  154.         GOTO WELCOME
  155.     ELSE
  156.         GOSUB ASKQUIT
  157.         GOTO GETPATH
  158.     END IF
  159.  
  160.     DESTEYES$ = DEST$ + "\EYESEZ"
  161.     DESTFONT$ = DEST$ + "\VFONT"
  162.     DESTCATA$ = DEST$ + "\VCATA"
  163.  
  164.     ''CustInst list symbols
  165.     CHECKIN$  = "CheckItemsIn"
  166.     CHECKOUT$ = "CheckItemsOut"
  167.  
  168.     FOR i% = 1 TO 7 STEP 1
  169.         AddListItem CHECKIN$, "ON"
  170.     NEXT i%
  171.  
  172. CUSTINST:
  173.     sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FCheckDlgProc", APPHELP, HELPPROC$)
  174.  
  175.     IF sz$ = "CONTINUE" THEN
  176.         UIPop 1
  177.         GOTO CHECKOPTIONS
  178.     ELSEIF sz$ = "PATH" THEN
  179.         GOTO GETPATH
  180.     ELSEIF sz$ = "CHK1" THEN
  181. '        RecalcOptFiles APPFILES
  182. '        SetDriveStatus
  183.         GOTO CUSTINST
  184.     ELSEIF sz$ = "CHK2" THEN
  185. '        RecalcOptFiles OPTFILES1
  186. '        SetDriveStatus
  187.         GOTO CUSTINST
  188.     ELSEIF sz$ = "CHK3" THEN
  189. '        RecalcOptFiles OPTFILES2
  190. '        SetDriveStatus
  191.         GOTO CUSTINST
  192.     ELSE
  193.         GOSUB ASKQUIT
  194.         GOTO CUSTINST
  195.     END IF
  196.  
  197. CHECKOPTIONS:
  198.     DOEYES$ = "NO"
  199.     DOTUTORIAL$ = "NO"
  200.     DOPLAYBACK$ = "NO"
  201.     DOFONT$ = "NO"
  202.     DOCATA$ = "NO"
  203.     DODEMO$ = "NO"
  204.     DOVFW$  = "NO"
  205.  
  206.     op1$ = GetListItem ( CHECKOUT$, EYESFILES)
  207.     IF op1$ = "ON" THEN
  208.         DOEYES$ = "YES"
  209.     ENDIF
  210.     op2$ = GetListItem ( CHECKOUT$, TUTORFILES)
  211.     IF op2$ = "ON" THEN
  212.         DOTUTORIAL$ = "YES"
  213.     ENDIF
  214.     op3$ = GetListItem ( CHECKOUT$, PLAYBACKFILES)
  215.     IF op3$ = "ON" THEN
  216.         DOPLAYBACK$ = "YES"
  217.     ENDIF
  218.     op4$ = GetListItem ( CHECKOUT$, FONTFILES)
  219.     IF op4$ = "ON" THEN
  220.         DOFONT$ = "YES"
  221.     ENDIF
  222.     op5$ = GetListItem ( CHECKOUT$, CATAFILES)
  223.     IF op5$ = "ON" THEN
  224.        DOCATA$ = "YES"
  225.     ENDIF
  226.     op6$ = GetListItem ( CHECKOUT$, DEMOFILES)
  227.     IF op6$ = "ON" THEN
  228.        DODEMO$ = "YES"
  229.     ENDIF
  230.     op7$ = GetListItem ( CHECKOUT$, VFWFILES)
  231.     IF op7$ = "ON" THEN
  232.        DOVFW$ = "YES"
  233.     ENDIF
  234.  
  235. INSTALLIT:
  236.  
  237.     WINDIR$ = GetWindowsDir()
  238.     WINSYSDIR$ = GetWindowsSysDir()
  239.     CreateSysIniKeyValue WINDIR$ + "system.ini" , "386Enh" , "PageOverCommit" , "20" , cmoOverwrite
  240.  
  241.     Install
  242.  
  243.  
  244. QUIT:
  245.     ON ERROR GOTO ERRQUIT
  246.  
  247.     IF ERR = 0 THEN
  248.         dlg% = EXITSUCCESS
  249.     ELSEIF ERR = STFQUIT THEN
  250.         dlg% = EXITQUIT
  251.     ELSE
  252.         dlg% = EXITFAILURE
  253.     END IF
  254. QUITL1:
  255.  
  256.     Cleanup(DEST$)
  257.  
  258.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  259.     IF sz$ = "REACTIVATE" THEN
  260.         GOTO QUITL1
  261.     END IF
  262.     UIPop 1
  263.  
  264.     END
  265.  
  266. ERRQUIT:
  267.     i% = DoMsgBox("Setup sources were corrupted, call 818 883-7900!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  268.     END
  269.  
  270.  
  271.  
  272. BADPATH:
  273.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  274.     IF sz$ = "REACTIVATE" THEN
  275.         GOTO BADPATH
  276.     END IF
  277.     UIPop 1
  278.     RETURN
  279.  
  280.  
  281.  
  282. ASKQUIT:
  283.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  284.  
  285.     IF sz$ = "EXIT" THEN
  286.         UIPopAll
  287.         ERROR STFQUIT
  288.     ELSEIF sz$ = "REACTIVATE" THEN
  289.         GOTO ASKQUIT
  290.     ELSE
  291.         UIPop 1
  292.     END IF
  293.     RETURN
  294.  
  295.  
  296.  
  297. '**
  298. '** Purpose:
  299. '**     Builds the copy list and performs all installation operations.
  300. '** Arguments:
  301. '**     none.
  302. '** Returns:
  303. '**     none.
  304. '*************************************************************************
  305. SUB Install STATIC
  306.  
  307.     SRCDRIVE$ = GetSymbolValue("STF_SRCDIR")
  308.     SrcDir$ = GetSymbolValue("STF_SRCDIR") + "SIMPLY3D"
  309.     CreateDir DEST$, cmoNone
  310.     IF DOEYES$ = "YES" THEN
  311.         CreateDir DESTEYES$, cmoNone
  312.         CreateDir DESTEYES$ + "\CONFIG", cmoNone
  313.     ENDIF
  314.  
  315.     IF DOTUTORIAL$ = "YES" THEN
  316.         CreateDir DESTEYES$, cmoNone
  317.         CreateDir DESTEYES$ + "\TUTOR", cmoNone
  318.         CreateDir DESTEYES$ + "\TUTOR\TUTOR1", cmoNone
  319.     CreateDir DESTEYES$ + "\TUTOR\TUTOR3", cmoNone
  320.     CreateDir DESTEYES$ + "\TUTOR\TUTOR4", cmoNone
  321.     CreateDir DESTEYES$ + "\TUTOR\TUTOR5", cmoNone
  322.     CreateDir DESTEYES$ + "\TUTOR\TUTOR6", cmoNone
  323.     CreateDir DESTEYES$ + "\TUTOR\TUTOR7", cmoNone
  324.     CreateDir DESTEYES$ + "\TUTOR\TUTOR8", cmoNone
  325.     CreateDir DESTEYES$ + "\TUTOR\TUTOR9", cmoNone
  326.     ENDIF
  327.  
  328.     IF DOPLAYBACK$ = "YES" THEN
  329.         CreateDir DESTEYES$, cmoNone
  330.         CreateDir DESTEYES$ + "\PLAYBACK", cmoNone
  331.     ENDIF
  332.  
  333.     IF DOFONTS$ = "YES" THEN
  334.         CreateDir DEST$ + "\VFONT", cmoNone
  335.     ENDIF
  336.  
  337.     IF DOCATA$ = "YES" THEN
  338.         CreateDir DEST$ + "\VCATA", cmoNone
  339.     ENDIF
  340.  
  341.     AddToBillboardList CUIDLL$, WELCOMEBB, "WelcomeDlgProc", 5
  342.     AddToBillboardList CUIDLL$, RLIVEBB, "WelcomeDlgProc", 9
  343.     AddToBillboardList CUIDLL$, VFONTBB, "WelcomeDlgProc", 9
  344.     AddToBillboardList CUIDLL$, VCATABB, "WelcomeDlgProc", 9
  345.     AddToBillboardList CUIDLL$, ANIPLAY, "WelcomeDlgProc", 9
  346.     AddToBillboardList CUIDLL$, SSCENESBB,"WelcomeDlgProc", 9
  347.  
  348.     IF DOEYES$ = "YES" THEN
  349.         AddSectionFilesToCopyList "EYES", SrcDir$, DESTEYES$
  350.         AddSectionFilesToCopyList "CONFIG", SrcDir$, DESTEYES$ + "\CONFIG"
  351.     ENDIF
  352.  
  353.     IF DOVFW$ = "YES" THEN
  354.         AddSectionFilesToCopyList "AVI Codecs", SrcDir$, WINSYSDIR$
  355.         AddSectionFilesToCopyList "OLE2", SrcDir$, WINSYSDIR$
  356.         AddSectionFilesToCopyList "VFW Runtime", SrcDir$, WINSYSDIR$
  357.         AddSectionFilesToCopyList "ACM Drivers", SrcDir$, WINSYSDIR$
  358.     ENDIF
  359.  
  360.     IF DOTUTORIAL$ = "YES" THEN
  361.         AddSectionFilesToCopyList "TUTOR", SrcDir$, DESTEYES$ + "\TUTOR"
  362.         AddSectionFilesToCopyList "TUTOR1", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR1"
  363.         AddSectionFilesToCopyList "TUTOR3", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR3"
  364.         AddSectionFilesToCopyList "TUTOR4", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR4"
  365.         AddSectionFilesToCopyList "TUTOR5", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR5"
  366.         AddSectionFilesToCopyList "TUTOR6", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR6"
  367.         AddSectionFilesToCopyList "TUTOR7", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR7"
  368.         AddSectionFilesToCopyList "TUTOR8", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR8"
  369.         AddSectionFilesToCopyList "TUTOR9", SrcDir$, DESTEYES$ + "\TUTOR\TUTOR9"
  370.     ENDIF
  371.  
  372.     IF DOFONT$ = "YES" THEN
  373.         AddSectionFilesToCopyList "VFONT", SrcDir$, DESTFONT$
  374.     ENDIF
  375.  
  376.     IF DOCATA$ = "YES" THEN
  377.         AddSectionFilesToCopyList "VC", SrcDir$, DESTCATA$
  378.     ENDIF
  379.  
  380.     IF DOPLAYBACK$ = "YES" THEN
  381.         AddSectionFilesToCopyList "VPLAYER", SrcDir$, DESTEYES$ + "\PLAYBACK"
  382.         AddSectionFilesToCopyList "Animator", SrcDir$, DESTEYES$ + "\PLAYBACK"
  383.         AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  384.     ENDIF
  385.  
  386.     CopyFilesInCopyList
  387.  
  388.     IF DOVFW$ = "YES" THEN
  389.     SetRestartDir WINDIR$
  390.     
  391.     IF VflatdPresent() = 0 THEN
  392.               CreateSysIniKeyValue WINDIR$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  393.     END IF
  394.  
  395.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  396.         CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  397.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.IV31", "indeov.drv", cmoOverwrite
  398.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  399.  
  400.     I% = DoesIniKeyExist (WINDIR$ + "system.ini", "Drivers", "VIDC.RT21")
  401.     IF I% = 0  THEN
  402.               CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.RT21", "indeov.drv", cmoOverwrite
  403.     END IF
  404.  
  405.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "VIDC.YVU9", "indeov.drv", cmoOverwrite
  406.     CreateIniKeyValue WINDIR$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  407.     CreateIniKeyValue WINDIR$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  408.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  409.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  410.     CreateIniKeyValue WINDIR$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  411.     CreateIniKeyValue WINDIR$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  412.     CreateIniKeyValue WINDIR$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  413.     CreateIniKeyValue WINDIR$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  414.     Run ("regedit.exe /s " + MakePath(WINDIR$, "mplayer.reg"))
  415.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  416.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  417.     ENDIF
  418.  
  419.     CreateProgmanGroup "Simply 3D", "", cmoNone
  420.     ShowProgmanGroup  "Simply 3D", 1, cmoNone
  421.     CreateProgmanItem "Simply 3D", "User's Guide", DESTEYES$ + "\config\s3ddocs.exe ", DESTEYES$ + "\config\target.ico", cmoOverwrite
  422.  
  423.     IF DOEYES$ = "YES" THEN
  424.     CreateProgmanItem "Simply 3D", "Renderize Live EZ", DESTEYES$ + "\eyesez.exe ", "", cmoOverwrite
  425.     ENDIF
  426.     IF DOFONT$ = "YES" THEN
  427.         CreateProgmanItem "Simply 3D", "Visual Font", DESTFONT$ + "\vfont.exe ", "", cmoOverwrite
  428.     ENDIF
  429.     IF DOCATA$ = "YES" THEN
  430.         CreateProgmanItem "Simply 3D", "Visual Catalogue", DESTCATA$ + "\vc.exe ", "", cmoOverwrite
  431.     ENDIF
  432.     IF DOPLAYBACK$ = "YES" THEN
  433.         CreateProgmanItem "Simply 3D", "Visual Player", DESTEYES$ + "\playback\vplayer.exe ", "", cmoOverwrite
  434.         CreateProgmanItem "Simply 3D", "Media Player", WINDIR + "mplayer.exe ", "", cmoOverwrite
  435.         CreateProgmanItem "Simply 3D", "Animator", DESTEYES$ + "\playback\aawin.exe ", "", cmoOverwrite
  436.     ENDIF
  437.     IF DODEMO$ = "YES" THEN
  438.         CreateProgmanItem "Simply 3D", "3D Demo   Hard Disk", SRCDRIVE$ + "simply3d\mmdemo\simphd.exe ", "", cmoOverwrite
  439.         CreateProgmanItem "Simply 3D", "3D Demo   CD-Rom", SRCDRIVE$ + "simply3d\mmdemo\simpcd.exe ", "", cmoOverwrite
  440.         CreateProgmanItem "Simply 3D", "3D Demo   Loop", SRCDRIVE$ + "simply3d\mmdemo\simplp.exe ", "", cmoOverwrite
  441.     ENDIF
  442.  
  443. END SUB
  444.  
  445.  
  446.  
  447. '**
  448. '** Purpose:
  449. '**     Appends a file name to the end of a directory path,
  450. '**     inserting a backslash character as needed.
  451. '** Arguments:
  452. '**     szDir$  - full directory path (with optional ending "\")
  453. '**     szFile$ - filename to append to directory
  454. '** Returns:
  455. '**     Resulting fully qualified path name.
  456. '*************************************************************************
  457. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  458.     IF szDir$ = "" THEN
  459.         MakePath = szFile$
  460.     ELSEIF szFile$ = "" THEN
  461.         MakePath = szDir$
  462.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  463.         MakePath = szDir$ + szFile$
  464.     ELSE
  465.         MakePath = szDir$ + "\" + szFile$
  466.     END IF
  467. END FUNCTION
  468.  
  469.  
  470. SUB Cleanup (dest$) STATIC
  471.     RemoveFile dest$ + "\vimage.mst",   cmoNone
  472.     RemoveFile dest$ + "\setup.inf",    cmoNone
  473.     RemoveFile dest$ + "\setup.lst",    cmoNone
  474.     RemoveFile dest$ + "\setup.exe",    cmoNone
  475.     RemoveFile dest$ + "\setupapi.inc", cmoNone
  476.     RemoveFile dest$ + "\msdetect.inc", cmoNone
  477.     RemoveFile dest$ + "\mscomstf.dll", cmoNone
  478.     RemoveFile dest$ + "\msinsstf.dll", cmoNone
  479.     RemoveFile dest$ + "\msuilstf.dll", cmoNone
  480.     RemoveFile dest$ + "\msshlstf.dll", cmoNone
  481.     RemoveFile dest$ + "\mscuistf.dll", cmoNone
  482.     RemoveFile dest$ + "\msdetstf.dll", cmoNone
  483.     RemoveFile dest$ + "\iniupd.dll",    cmoNone
  484.     RemoveFile dest$ + "\_mstest.exe",  cmoNone
  485.     RemoveFile dest$ + "\_mssetup.exe", cmoNone
  486. END SUB
  487.  
  488.  
  489. 
  490.